home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / jui_g.inc < prev    next >
Text File  |  1997-11-26  |  970b  |  64 lines
  1. *---------------------------------------
  2. *
  3. *    âWâàâCò\Ī
  4. *
  5. *    âKü[âh
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. jui_g:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subq.w    #8,d1
  17.     subi.w    #24,d2
  18.     addi.w    #$0031,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d2
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     rts
  39. @@:
  40.     subq.w    #8,d1
  41.     subi.w    #24,d2
  42.     addi.w    #$4031,d7
  43.     move.w    d1,(a6)+
  44.     move.w    d2,(a6)+
  45.     move.w    d7,(a6)+
  46.     move.w    #$0003,(a6)+
  47.  
  48.     addi.w    #16,d2
  49.     addq.w    #1,d7
  50.     move.w    d1,(a6)+
  51.     move.w    d2,(a6)+
  52.     move.w    d7,(a6)+
  53.     move.w    #$0003,(a6)+
  54.  
  55.     addi.w    #16,d2
  56.     addq.w    #1,d7
  57.     move.w    d1,(a6)+
  58.     move.w    d2,(a6)+
  59.     move.w    d7,(a6)+
  60.     move.w    #$0003,(a6)+
  61.  
  62.     rts
  63. *---------------------------------------
  64.